home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 2).iso / 1318 / el2one.s < prev    next >
Encoding:
Text File  |  1993-05-30  |  2.0 KB  |  90 lines
  1. \  EL2ONE.S
  2. \  Turn lower case EL into 1 where applicable
  3.  
  4. \  I don't understand it, but I *still* see files
  5. \  where someone has used the lower case el (l)
  6. \  when they should have used the numeral 1. 
  7. \  Typewriters have had numeral one keys
  8. \  on them for twenty years! And every computer
  9. \  ever sold had a one key on it! You have to
  10. \  wonder about some people...
  11.  
  12. \  This table should be run TWICE on a file, to catch all
  13. \  occurrences of the mistyped numerals.
  14. \  Example:
  15. \     C>snr crummy.doc txt el2one.s el2one.s
  16.  
  17. \     most of the following conversions rely upon certain statistical
  18. \     juxtapositions of likely mistyped numeral 1s.
  19.  
  20. (l)=(1)     \ likely within an outline. Beware, though. Maybe it really IS
  21.             \ supposed to be an L, in which case you should put a comment
  22.             \ character in front of this equation.
  23.  
  24. 1.l=1.1     \ likely section lead-ins
  25. l.l=1.1
  26. l.\n=1.\p2
  27. l\n=1\p1
  28.  
  29. \nl=\p0\31  \ here they're next to other numerals
  30.  
  31. l-l=1-1     \ maybe part of a date, like 1-1-88.
  32.  
  33. l-l\y=l-l\p3   \ if it's a word like "well-liked", don't turn it into numbers
  34.  
  35.  
  36. -l =-1\20        \ some fairly obvious 1s.
  37. -ll =-11\20
  38. -lll =-111\20
  39. l/\n=1/\p2       \ a fraction, perhaps, or a date like 1/1/88.
  40.  l = 1\20        \ these should obviously be 1s. They all have spaces in front.
  41.  l,= 1,
  42.  l.= 1.
  43.  l)= 1)
  44.  l:= 1:
  45.  l;= 1;
  46.  l\k= 1\p2       \ maybe before a TAB code, or a RETURN, or something
  47.  ll = 11\20
  48.  ll,= 11,
  49.  ll.= 11.
  50.  ll)= 11)
  51.  ll:= 11:
  52.  ll;= 11;
  53.  ll\k= 11\p3
  54.  lll= 111
  55.  
  56. \        the following equations trap occurrences after a line ending
  57. \        or a tab, or some other non-print character
  58.  
  59. \kl =\p0\31\20
  60. \kl,=\p0\31,
  61. \kl.=\p0\31.
  62. \kl)=\p0\31)
  63. \kl:=\p0\31:
  64. \kl;=\p0\31;
  65. \kl\09=\p0\31\09
  66. \kll =\p0\311\20
  67. \kll,=\p0\311,
  68. \kll.=\p0\311.
  69. \kll)=\p0\311)
  70. \kll:=\p0\311:
  71. \kll;=\p0\311;
  72. \kll\09=\p0\311\09
  73. \klll=\p0\3111
  74.  
  75. $l=$1
  76.  
  77. \              look for what should be zeros
  78.  
  79. \nO=\p0\30
  80. ,OOO=,000
  81. ,OO=,00
  82. ,O=,0
  83. .OOO=.000
  84. .OO=.00
  85. .O=.0
  86. O.O=0.0
  87. O.\n=0.\p2
  88. O\n=0\p1
  89.  
  90.